home *** CD-ROM | disk | FTP | other *** search
- /BuildChar {
- Adobe_Illustrator_AI5_vars exch /_bitlobyte exch put
- Adobe_Illustrator_AI5_vars exch /_bitfont exch put
- _bithibyte 0 eq
- {
- Adobe_Illustrator_AI5_vars /_bithibyte Adobe_Illustrator_AI5_vars /_bitlobyte get 1 add put
- 0 0 setcharwidth
- }
- {
- _bithibyte 1 sub 256 mul _bitlobyte add
- 16 4 string cvrs dup length (K) dup length
- dup 4 -1 roll add string Adobe_Illustrator_AI5_vars exch /_bitkey exch put
- exch _bitkey copy pop _bitkey exch 3 -1 roll putinterval
- _bitfont /CharMetrics get _bitkey cvn get 0 setcharwidth
- _bitfont /CharStrings get _bitkey cvn get exec
- Adobe_Illustrator_AI5_vars /_bithibyte 0 put
- } ifelse
- } bind def
-
-